home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 January: Technology Seed / Jan. '98 ATS.toast / LaserWriter 8.5.1 GM / LaserWriter Disk 5 / PrintingLib / PrintingLib.rsrc / PS_-8175 < prev    next >
Encoding:
Text File  |  1997-10-10  |  1.3 KB  |  109 lines
  1. %%BeginFile: lw8_level2_colorimage-2.1
  2. /rgbclut Z
  3. /hival Z
  4. /bpc2h
  5. {
  6. bpc dup 8 eq
  7. {
  8. pop 255
  9. }{
  10. 4 eq
  11. {
  12. 15
  13. }{
  14. 3
  15. }ifelse
  16. }ifelse
  17. }bd
  18. /:k
  19. {
  20. /rgbclut xs
  21. pop
  22. /hival bpc2h store
  23. [/Indexed $c hival rgbclut]setcolorspace
  24. $j dup begin
  25. /Width iw def
  26. /Height ih def
  27. /Decode[0 hival]def
  28. /ImageMatrix[iw 0 0 ih 0 0]def
  29. /DataSource setupimageproc def
  30. /BitsPerComponent bpc def
  31. /Interpolate smoothflag def
  32. end
  33. image
  34. }bd
  35. /:l
  36. {
  37. $j dup begin
  38. /Width iw def
  39. /Height ih def
  40. /Decode[[currentcolor]length{0 1}repeat]def
  41. /ImageMatrix[iw 0 0 ih 0 0]def
  42. /DataSource setupimageproc def
  43. /BitsPerComponent 8 def
  44. /Interpolate smoothflag def
  45. end
  46. image
  47. }bd
  48. /:x
  49. {
  50. /DeviceGray setcolorspace
  51. :l
  52. }bd
  53. level3
  54. dup startnoload
  55. /:lm/:l ld
  56. /:xm/:x ld
  57. /:km/:k ld
  58. dup endnoload not dup startnoload
  59. /:km
  60. {
  61. /rgbclut xs
  62. pop
  63. /hival bpc2h store
  64. [/Indexed $c hival rgbclut]setcolorspace
  65. [0 hival]domskimage
  66. }bd
  67. /:lm
  68. {
  69. [[currentcolor]length{0 1}repeat]
  70. domskimage
  71. }bd
  72. /:xm
  73. {
  74. /DeviceGray setcolorspace
  75. :lm
  76. }bd
  77. /dockeyimg
  78. {
  79. $j begin
  80. /ImageType 4 def
  81. /Decode exch def
  82. /MaskColor exch def
  83. /Width iw def
  84. /Height ih def
  85. /ImageMatrix mkimgmtx def
  86. /BitsPerComponent bpc def
  87. /Interpolate smoothflag def
  88. /DataSource setupimageproc def
  89. currentdict
  90. end
  91. image
  92. }bd
  93. /:lt
  94. {
  95. [0 1 0 1 0 1]
  96. dockeyimg
  97. }bd
  98. /:kt
  99. {
  100. /rgbclut xs
  101. pop
  102. /hival bpc2h store
  103. [/Indexed $c hival rgbclut]setcolorspace
  104. [0 hival]
  105. dockeyimg
  106. }bd
  107. endnoload
  108. %%EndFile
  109.